home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World's Largest Collection of Windows Software
/
The World's Largest Collection of Windows Software - Disc 2.iso
/
textproc
/
_b4
/
amipro31
/
stymacro.cmz
/
COLLECT.SMM
Wrap
INI File
|
1992-08-12
|
18KB
|
1,321 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
QMS-PS 810
[port]
LPT1:
[lang]
1
[desc]
Data gatherer for auto style sheets
708847500
3
707673680
169
5
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial
240
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[tag]
Header
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Footer
11
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[tag]
Outline3
12
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
3
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline3
0
0
[tag]
Outline4
0
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
4
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Outline4
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[edoc]
@Title@<:#293,9360>'declares and defines
@Subhead@<:#240,9360>define HFONT "Setfont:hFont"
@Subhead@<:#240,9360>define SendMessage(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
@Subhead@<:#240,9360>define WM_SETFONT 0x30
@Subhead@<:#480,9360>define CreateFont() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
@Subhead@<:#240,9360>define DeleteObject(handle) DllCall("gdi,DeleteObject,HH", %1)
@Subhead@<:#240,9360>
@Title@<:#293,9360>function datacollector()
@Subhead@<:#240,9360>'font hander
@Outline3@<:#240,9360>AllocGlobalVar(HFONT, 1)
@Outline3@<:#240,9360>SetGlobalVar(HFONT, 0)
@Subhead@<:#240,9360>rmac=getrunningmacrofile$()
@Subhead@<:#240,9360>DataGood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")
@Subhead@<:#240,9360>if DataGood = ""
@Subhead@<:#240,9360> writeprofilestring("AutoStyleSheets", "DataGood", 0, "AMIPRO2.INI")
@Subhead@<:#240,9360>elseif DataGood = 1
@Outline3@<:#240,9360>'read it in
@Outline4@<:#240,9360>name=getprofilestring$("AutoStyleSheets", "Name", "AMIPRO2.INI")
@Outline4@<:#240,9360>title=getprofilestring$("AutoStyleSheets", "Title", "AMIPRO2.INI")
@Outline4@<:#240,9360>company=getprofilestring$("AutoStyleSheets", "Company", "AMIPRO2.INI")
@Outline4@<:#240,9360>address1=getprofilestring$("AutoStyleSheets", "Address1", "AMIPRO2.INI")
@Outline4@<:#240,9360>address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")
@Outline4@<:#240,9360>csz=getprofilestring$("AutoStyleSheets", "CSZ", "AMIPRO2.INI")
@Outline4@<:#240,9360>phone=getprofilestring$("AutoStyleSheets", "Phone", "AMIPRO2.INI")
@Outline4@<:#240,9360>fax=getprofilestring$("AutoStyleSheets", "Fax", "AMIPRO2.INI")
@Outline3@<:#240,9360>goto boxer
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>name=getprofilestring$("AmiPro", "UserName", "AMIPRO.INI")
@Subhead@<:#240,9360>'get word data
@Outline3@<:#240,9360>sal=getprofilestring$("MS Word User", "Sal", "WIN.INI")
@Outline3@<:#240,9360>Name=getprofilestring$("MS Word User", "Name", "WIN.INI")
@Outline3@<:#240,9360>Suffix=getprofilestring$("MS Word User", "Suffix", "WIN.INI")
@Outline3@Company=getprofilestring$("MS Word User", "Company", "WIN.INI")
@Outline3@<:#240,9360>title=getprofilestring$("MS Word User", "Position", "WIN.INI")
@Outline3@<:#240,9360>Address1=getprofilestring$("MS Word User", "Address1", "WIN.INI")
@Outline3@<:#240,9360>Address2=getprofilestring$("MS Word User", "Address2", "WIN.INI")
@Outline3@<:#240,9360>City=getprofilestring$("MS Word User", "City", "WIN.INI")
@Outline3@<:#240,9360>State=getprofilestring$("MS Word User", "State", "WIN.INI")
@Outline3@<:#240,9360>Zip=getprofilestring$("MS Word User", "Zip", "WIN.INI")
@Outline3@<:#240,9360>Phone=getprofilestring$("MS Word User", "Phone", "WIN.INI")
@Outline3@<:#240,9360>Fax=getprofilestring$("MS Word User", "Fax", "WIN.INI")
@Outline3@<:#240,9360>writer=getprofilestring$("MS Word User", "Writer", "WIN.INI")
@Outline3@<:#240,9360>typist=getprofilestring$("MS Word User", "Typist", "WIN.INI")
@Subhead@<:#240,9360>'make it pro
@Outline3@<:#240,9360>name=strcat$(sal, " ", name, " ", suffix)
@Outline3@<:#240,9360>csz=strcat$(city, ", ", state, " ", zip)
@Subhead@<:#240,9360>'check envelope info
@Outline3@<:#240,9360>envretname=getprofilestring$("AmiEnv", "defretad", "AMIPRO2.INI")
@Outline3@<:#240,9360>if envretname != ""
@Outline3@<:#240,9360> addressline=getprofilestring$("AdrsBook", envretname, "AMIPRO2.INI")
@Outline3@<:#240,9360> goodaddress=strfield$(addressline, 2, "</e>")
@Outline3@<:#240,9360> if goodaddress != (-1) and left$(goodaddress, 6) != "Type y"
@Outline3@<:#240,9360> address1=strfield$(addressline, 2, "</e>")
@Outline3@<:#240,9360> address2=strfield$(addressline, 3, "</e>")
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360>endif
@Subhead@<:#240,9360>boxer:
@Subhead@<:#240,9360>SetDlgCallback(0, "{rmac}!initdlg")
@Subhead@<:#240,9360>'filledits
@Outline3@<:#240,9360>filledit(1011, "Type the information that you would like for your automated style sheets.")
@Outline3@<:#240,9360>filledit(8000, name)
@Outline3@<:#240,9360>filledit(8001, title)
@Outline3@<:#240,9360>filledit(8002, company)
@Outline3@<:#240,9360>filledit(8003, address1)
@Outline3@<:#240,9360>filledit(8004, address2)
@Outline3@<:#240,9360>filledit(8005, csz)
@Outline3@filledit(8006, phone)
@Outline3@<:#240,9360>filledit(8007, fax)
@Subhead@<:#240,9360>box = dialogbox(".", "collect")
@Subhead@<:#240,9360>if box = 0
@Subhead@<:#240,9360> exit function
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>'get the stuff back out of the box
@Outline3@<:#240,9360>name=getdialogfield$(8000)
@Outline3@<:#240,9360>title=getdialogfield$(8001)
@Outline3@<:#240,9360>company=getdialogfield$(8002)
@Outline3@<:#240,9360>address1=getdialogfield$(8003)
@Outline3@<:#240,9360>address2=getdialogfield$(8004)
@Outline3@<:#240,9360>csz=getdialogfield$(8005)
@Outline3@<:#240,9360>phone=getdialogfield$(8006)
@Outline3@<:#240,9360>fax=getdialogfield$(8007)
@Subhead@<:#240,9360>'write it out
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Name", name, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Title", title, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Company", Company, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Address1", address1, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Address2", address2, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "CSZ", csz, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Phone", phone, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "Fax", fax, "AMIPRO2.INI")
@Outline3@<:#240,9360>writeprofilestring("AutoStyleSheets", "DataGood", 1, "AMIPRO2.INI")
@Subhead@<:#240,9360>'put envelope builder here
@Subhead@<:#240,9360>'font handler
@Outline3@<:#240,9360>font = GetGlobalVar$(HFONT) ' If we created
@Outline3@<:#240,9360>if (0 != font) ' the font.
@Outline3@<:#240,9360> DeleteObject(font) ' Delete it
@Outline3@<:#240,9360>endif
@Outline3@<:#240,9360>freeglobalvar(HFONT)
@Subhead@<:#240,9360>end function
@Title@<:#293,9360>function initdlg(hdlg, id, stuff)
@Subhead@<:#240,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
@Subhead@<:#240,9360>if (Font)
@Subhead@<:#240,9360> for i = 8000 to 8007
@Subhead@<:#240,9360> hctl = GetDlgItem(hDlg, i)
@Subhead@<:#240,9360> SendMessage(hctl, WM_SETFONT, font, 0)
@Subhead@<:#240,9360> next
@Subhead@<:#240,9360> hctl=GetDlgItem(hDlg, 1011)
@Subhead@<:#240,9360> SendMessage(hctl, WM_SETFONT, font, 0)
@Subhead@<:#240,9360> SetGlobalVar(HFONT, Font)
@Subhead@<:#240,9360>endif
@Subhead@<:#240,9360>end function
@Title@<:#293,9360>DIALOG collect
@Subhead@<:#240,9360>-2134376448 19 70 44 228 148 "" "" "Personal Information"
@Subhead@<:#240,9360>FONT 8 "Helv"
@Subhead@<:#240,9360>4 6 30 10 1000 1342177280 "static" "Name:" 0
@Subhead@<:#240,9360>4 22 24 10 1001 1342177280 "static" "Title:" 0
@Subhead@<:#240,9360>4 38 38 10 1002 1342177280 "static" "Company:" 0
@Subhead@<:#240,9360>4 52 38 10 1003 1342177280 "static" "Address 1:" 0
@Subhead@<:#240,9360>4 70 38 10 1004 1342177280 "static" "Address 2:" 0
@Subhead@4 86 55 10 1005 1342177280 "static" "City, State ZIP:" 0
@Subhead@<:#240,9360>4 100 30 10 1006 1342177280 "static" "Phone:" 0
@Subhead@<:#240,9360>4 116 30 10 1007 1342177280 "static" "Fax:" 0
@Subhead@59 4 122 12 8000 1350631552 "edit" "" 0
@Subhead@59 20 122 12 8001 1350631552 "edit" "" 0
@Subhead@59 36 122 12 8002 1350631552 "edit" "" 0
@Subhead@59 52 122 12 8003 1350631552 "edit" "" 0
@Subhead@59 68 122 12 8004 1350631552 "edit" "" 0
@Subhead@59 84 122 12 8005 1350631552 "edit" "" 0
@Subhead@59 100 122 12 8006 1350631552 "edit" "" 0
@Subhead@59 116 122 12 8007 1350631552 "edit" "" 0
@Subhead@184 4 40 14 1 1342373889 "button" "OK" 0
@Subhead@184 20 40 14 2 1342373888 "button" "Cancel" 0
@Subhead@<:#240,9360>4 134 220 12 1011 1342177280 "static" "text" 0
@Subhead@<:#240,9360>END DIALOG
>
[Embedded]
00013610
>
[macsum] 3
datacollector 0 0 23 7
initdlg 2962 3 4 99
collect 3373 0 -1 111
[macse]
14 datacollector
0 271 "Setfont:hFont" 1
0 264 "Setfont:hFont" 0
0 802
13
8 1
0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
13
8 2
6 2
7 ""
18 0
11 00000238
0 287 "AutoStyleSheets" "DataGood" 0 "AMIPRO2.INI"
10 00000732
6 2
5 1
18 0
11 00000732
0 286 "AutoStyleSheets" "Name" "AMIPRO2.INI"
13
8 3
0 286 "AutoStyleSheets" "Title" "AMIPRO2.INI"
13
8 4
0 286 "AutoStyleSheets" "Company" "AMIPRO2.INI"
13
8 5
0 286 "AutoStyleSheets" "Address1" "AMIPRO2.INI"
13
8 6
0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
13
8 7
0 286 "AutoStyleSheets" "CSZ" "AMIPRO2.INI"
13
8 8
0 286 "AutoStyleSheets" "Phone" "AMIPRO2.INI"
13
8 9
0 286 "AutoStyleSheets" "Fax" "AMIPRO2.INI"
13
8 10
10 00001869
0 286 "AmiPro" "UserName" "AMIPRO.INI"
13
8 3
0 286 "MS Word User" "Sal" "WIN.INI"
13
8 11
0 286 "MS Word User" "Name" "WIN.INI"
13
8 3
0 286 "MS Word User" "Suffix" "WIN.INI"
13
8 12
0 286 "MS Word User" "Company" "WIN.INI"
13
8 5
0 286 "MS Word User" "Position" "WIN.INI"
13
8 4
0 286 "MS Word User" "Address1" "WIN.INI"
13
8 6
0 286 "MS Word User" "Address2" "WIN.INI"
13
8 7
0 286 "MS Word User" "City" "WIN.INI"
13
8 13
0 286 "MS Word User" "State" "WIN.INI"
13
8 14
0 286 "MS Word User" "Zip" "WIN.INI"
13
8 15
0 286 "MS Word User" "Phone" "WIN.INI"
13
8 9
0 286 "MS Word User" "Fax" "WIN.INI"
13
8 10
0 286 "MS Word User" "Writer" "WIN.INI"
13
8 16
0 286 "MS Word User" "Typist" "WIN.INI"
13
8 17
0 16 "{11}" " " "{3}" " " "{12}"
13
8 3
0 16 "{13}" ", " "{14}" " " "{15}"
13
8 8
0 286 "AmiEnv" "defretad" "AMIPRO2.INI"
13
8 18
6 18
7 ""
18 1
11 00001869
0 286 "AdrsBook" "{18}" "AMIPRO2.INI"
13
8 19
0 20 "{19}" 2 "</e>"
13
8 20
6 20
5 -1
18 1
0 806 "{20}" 6
13
7 "Type y"
18 1
1 1
11 00001869
0 20 "{19}" 2 "</e>"
13
8 6
0 20 "{19}" 3 "</e>"
13
8 7
0 41 0 "{1}!initdlg"
0 31 1011 "Type the information that you would like for your automated style sheets."
0 31 8000 "{3}"
0 31 8001 "{4}"
0 31 8002 "{5}"
0 31 8003 "{6}"
0 31 8004 "{7}"
0 31 8005 "{8}"
0 31 8006 "{9}"
0 31 8007 "{10}"
0 26 "." "collect"
13
8 21
6 21
5 0
18 0
11 00002187
6 0
15
9
0 27 8000
13
8 3
0 27 8001
13
8 4
0 27 8002
13
8 5
0 27 8003
13
8 6
0 27 8004
13
8 7
0 27 8005
13
8 8
0 27 8006
13
8 9
0 27 8007
13
8 10
0 287 "AutoStyleSheets" "Name" "{3}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "Title" "{4}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "Company" "{5}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "Address1" "{6}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "Address2" "{7}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "CSZ" "{8}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "Phone" "{9}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "Fax" "{10}" "AMIPRO2.INI"
0 287 "AutoStyleSheets" "DataGood" 1 "AMIPRO2.INI"
0 265 "Setfont:hFont"
13
8 22
5 0
6 22
18 1
11 00002927
0 284 "gdi,DeleteObject,HH" "{22}"
0 266 "Setfont:hFont"
6 0
15
9
14 initdlg
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
6 4
11 00000399
5 8000
8 5
5 8007
6 5
18 2
12 00000206
10 00000295
5 1
6 5
3 0
8 5
10 00000128
0 44 "{0}" "{5}"
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
10 00000173
0 44 "{0}" 1011
13
8 6
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
0 264 "Setfont:hFont" "{4}"
6 3
15
9
DIALOG collect
-2134376448 19 70 44 228 148 "" "" "Personal Information"
FONT 8 "Helv"
4 6 30 10 1000 1342177280 "static" "Name:" 0
4 22 24 10 1001 1342177280 "static" "Title:" 0
4 38 38 10 1002 1342177280 "static" "Company:" 0
4 52 38 10 1003 1342177280 "static" "Address 1:" 0
4 70 38 10 1004 1342177280 "static" "Address 2:" 0
4 86 55 10 1005 1342177280 "static" "City, State ZIP:" 0
4 100 30 10 1006 1342177280 "static" "Phone:" 0
4 116 30 10 1007 1342177280 "static" "Fax:" 0
59 4 122 12 8000 1350631552 "edit" "" 0
59 20 122 12 8001 1350631552 "edit" "" 0
59 36 122 12 8002 1350631552 "edit" "" 0
59 52 122 12 8003 1350631552 "edit" "" 0
59 68 122 12 8004 1350631552 "edit" "" 0
59 84 122 12 8005 1350631552 "edit" "" 0
59 100 122 12 8006 1350631552 "edit" "" 0
59 116 122 12 8007 1350631552 "edit" "" 0
184 4 40 14 1 1342373889 "button" "OK" 0
184 20 40 14 2 1342373888 "button" "Cancel" 0
4 134 220 12 1011 1342177280 "static" "text" 0
00013635
